Urabon Golden Age Girl 2/Urabon Golden Age Girl 2.iso/mac/裏ガール２data/FAVORITE.DIR/00014_BOOKTITLE.ls

Text File | 1995-01-18 | 458 b | 17 lines

on mouseUp
  global slct, slcline, slfile, ngyou
  if line the mouseLine of field the mouseCast > 125 then
    set slct to line the mouseLine of field the mouseCast
    set slcline to the mouseLine
    hilite line the mouseLine of field "BOOKTITLE"
    set slfile to line slcline of field "zBOOKTITLE"
    set the visible of sprite 12 to 1
    set the visible of sprite 14 to 1
    if doubleClick() then
      slect()
    end if
  else
    exit
  end if
end